home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / bbsutils / sapphc.arj / SUSER.INC < prev   
Text File  |  1994-01-01  |  2KB  |  54 lines
  1. { File format for one record of SAPPHIRE.USR }
  2.  
  3. CONST
  4.   MaxUsers    = 1000;    { Username index RAM used = MaxUsers * 20 }
  5.  
  6. TYPE
  7.   UserType =
  8.   RECORD
  9.     {--- General Info ---}
  10.     RealName  : String20;    { Real Name }
  11.     Phone     : STRING[25];  { Voice phone number }
  12.     UserName  : String20;    { Sign-on name }
  13.     Password  : STRING[10];  { Sign-on password }
  14.     Level     : BYTE;        { Membership level, 1 to 8 }
  15.     Dayt_Last : WORD;        { Day# of last call; if 0, flagged as deleted }
  16.     Mint_Last : WORD;        { Minute-of-the-day of last call }
  17.     SpareA    : ARRAY[1..4] OF BYTE;  { Never used; set to zeros }
  18.     File_Last : WORD;        { Day# files listing was last viewed }
  19.     ClrScreen : CHAR;        { Should screen be cleared?  Y or N }
  20.     ScanMail  : CHAR;        { Scan for mail at logon time?  Y or N }
  21.     SpareX    : ARRAY[1..8] OF BYTE;
  22.     Width     : WORD;        { Screen width }
  23.     Depth     : WORD;        { Screen depth }
  24.     DefGear   : BYTE;        { Default gear }
  25.     DefWrap   : BOOLEAN;     { Default word-wrap }
  26.     Expert    : CHAR;        { Expert mode }
  27.     Pausing   : CHAR;        { Pause-during-read control }
  28.     Colour    : BOOLEAN;     { Use ANSI colour controls? }
  29.     IBMChars  : BOOLEAN;     { Are IBM characters available? }
  30.     Protocol  : CHAR;        { Upload/download protocol }
  31.     Bonus     : BYTE;        { Bonus minutes for uploading }
  32.     DownLoadK : LONGINT;     { K downloaded from files }
  33.     UpLoadK   : LONGINT;     { K uploaded to files }
  34.     NtPdExpl  : BYTE;        { Number of times notepad was explained }
  35.     FullANSI  : BOOLEAN;     { Should full ANSI displays be shown? }
  36.     Spare     : ARRAY[1..19] OF BYTE;
  37.     {--- Bulletins-Read Info ---}
  38.     { 0 is OBSERVE, 1-15 are messages }
  39.     ReadTimes : ARRAY[0..MaxBases] OF
  40.     RECORD
  41.       D : WORD;
  42.       M : WORD;
  43.     END;
  44.     {----- Additional user information -----}
  45.     NumVisits   : WORD;      { Number of visits }
  46.     NumPosts    : WORD;      { Number of messages sent }
  47.     SpareW1     : WORD;      { Used to be DownloadK; init'd to 0 }
  48.     DownloadNum : WORD;      { Number of files downloaded }
  49.     SpareW2     : WORD;      { Used to be UploadK; init'd to 0 }
  50.     UploadNum   : WORD;      { Number of files uploaded }
  51.     Locked      : BOOLEAN;   { If TRUE, not eligible for deletion }
  52.   END;
  53.  
  54.